home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / s_to_z / tpack / xtension.int < prev   
Encoding:
Text File  |  1996-09-15  |  853 b   |  32 lines
  1. unit Xtension;
  2.  
  3. interface
  4.  
  5. uses
  6.   Classes, SysUtils, Controls
  7. , PasUtils
  8. , Debug;
  9.  
  10. Type
  11.  
  12.   TComponentExtensions = class(TPersistent)
  13.   private
  14.     Owner: TComponent;
  15.   protected
  16.     procedure CreateNewComponent(aClass:TClass;Var aComponent);
  17.     procedure NameNewComponent(aComponent:TComponent);
  18.     procedure PlaceNewComponent(aComponent:TComponent);
  19.     function  FindInOwner(aClass:TClass):integer;
  20.   public
  21.     Constructor Create(aOwner:TComponent);
  22.     function  Designing:Boolean;
  23.     procedure SetIfFound(aComponent:TComponent;aClass:TClass);
  24.     procedure NilIfSet(TheComponent,AComponent: TComponent);
  25.     procedure SetIfNil(TheComponent,AComponent: TComponent);
  26.     procedure BombIfNil(TheComponent: TComponent; TheClass:TClass);
  27.     procedure MakeIfNil(Var aComponent;aClass:TClass);
  28.     end;
  29.  
  30. implementation
  31.  
  32.